home *** CD-ROM | disk | FTP | other *** search
- # simple pushButton test
- xtAppInitialize -class pv+
- # \
- # -fallbackResources {
- # {*foreground: red}
- # {Program*fred**labelString: hi there}
- # }
-
- xmMainWindow .main
-
- set base_ .main.r
- xmRowColumn $base_ managed
- xmLabel $base_.label managed
- xmText $base_.text managed
-
- .main manageChild
-
- . realizeWidget
- . mainLoop
-